dcl-ds AdviceDoc qualified;                                          
  dcl-ds CREDITADVICEHEADER;                                         
    CREDITADVICENUMBER varchar(2) inz('');                           
    DISTRIBUTORCODE varchar(5) inz('');                              
    CREDITADVICEPREPARATIONDATE varchar(24) inz('');                 
    num_REPAIRINGOUTLETRECORD int(10) inz(0);                        
    dcl-ds REPAIRINGOUTLETRECORD dim(25);                            
      REPAIRINGOUTLETBUSINESSPARTNERCODE varchar(10) inz('');        
      REPAIRINGOUTLETNAME varchar(30) inz('');                       
      REPAIRINGOUTLETADDRESSLINE1 varchar(30) inz('');               
      REPAIRINGOUTLETCITY varchar(18) inz('');                       
      REPAIRINGOUTLETSTATE varchar(2) inz('');                       
      REPAIRINGOUTLETCOUNTRY varchar(2) inz('');                     
      REPAIRINGOUTLETPOSTALCODE varchar(10) inz('');                 
      KILOMETERINDICATOR varchar(2) inz('');                         
      CURRENTLABORRATE varchar(15) inz('');                          
      CURRENTLABORRATEEFFECTIVEDATE varchar(10) inz('');             
      CURRENTTRAVELDISTANCEREIMBURSEMENTRATE varchar(15) inz('');    
      CURRENTTRAVELDISTANCEREIMBURSEMENTRATEEFFECTIVEDATE varchar(10)
          INZ(' ');                                                  
      CURRENTLANDEDCOSTMARKUP varchar(10) inz(*blanks);              
      CURRENTLANDEDCOSTMARKUPEFFECTIVEDATE varchar(10) inz('');      
      num_WORKINPROGRESSCLAIMSRECORD int(10) inz(0);                 
      dcl-ds WORKINPROGRESSCLAIMSRECORD dim(100);      
        TRACKINGNUMBER varchar(10) inz('');            
        REPAIRORDERNUMBER varchar(8) inz('');          
        CLAIMTYPE varchar(2) inz('');                  
        PRODUCTSERIALNUMBER varchar(20) inz('');       
        CLAIMNUMBER varchar(20) inz('');               
        DISPOSITIONCODE varchar(5) inz('');            
        DISPOSITIONCODEDESCRIPTION varchar(80) inz('');
        REQUESTEDDOLLARS packed(9: 2) inz(0);          
      end-ds;                                          
      num_WORKINPROGRESSETCRECORD int(10) inz(0);      
      dcl-ds WORKINPROGRESSETCRECORD dim(100);         
        TRACKINGNUMBER varchar(10) inz('');            
        REGISTRATIONNUMBER varchar(30) inz('');        
        PURCHASEORDERNUMBER varchar(15) inz('');       
        PRODUCTSERIALNUMBER varchar(20) inz('');       
        ETCPURCHASEDATE varchar(10) inz('');           
        DISPOSITIONCODE varchar(5) inz('');            
        DISPOSITIONCODEDESCRIPTION varchar(50) inz('');
        ETCPURCHASEPRICE varchar(10) inz('');          
      end-ds;                                          
      num_ETCREGISTRATIONRECORD int(10) inz(0);        
      dcl-ds ETCREGISTRATIONRECORD dim(50);            
        TRACKINGNUMBER varchar(10) inz('');            
        REGISTRATIONNUMBER varchar(30) inz('');                  
        PURCHASEORDERNUMBER varchar(15) inz('');                 
        PRODUCTSERIALNUMBER varchar(20) inz('');                 
        ETCPURCHASEDATE varchar(10) inz('');                     
        MODELNAME varchar(15) inz('');                           
        COVERAGECODE varchar(20) inz('');                        
        COVERAGECODEDESCRIPTION varchar(35) inz('');             
        EXCHANGERATE varchar(10) inz('');                        
        ETCREGISTRATIONSTATUSCODEDESCRIPTION varchar(35) inz('');
        ETCDEBITAMOUNT varchar(10) inz('');                      
        DOCUMENTNUMBER varchar(20) inz('');                      
      end-ds;                                                    
      num_CLAIMPROCESSEDRECORD int(10) inz(0);                   
      dcl-ds CLAIMPROCESSEDRECORD dim(50);                       
        TRACKINGNUMBER varchar(10) inz('');                      
        REPAIRORDERNUMBER varchar(8) inz('');                    
        PRODUCTSERIALNUMBER varchar(20) inz('');                 
        CLAIMNUMBER varchar(20) inz('');                         
        MODELNUMBER varchar(15) inz('');                         
        REPAIRORDEROPENDATE varchar(10) inz('');                 
        DELIVERYDATE varchar(10) inz('');                        
        PRIMARYFAILEDPARTNAME varchar(25) inz('');               
        PRIMARYFAILEDPARTNUMBER varchar(20) inz('');             
        CLAIMSTATUSCODE varchar(3) inz('');                      
        CLAIMSTATUSCODEDESCRIPTION varchar(20) inz('');
        CLAIMTYPE varchar(2) inz('');                  
        EXCHANGERATE varchar(10) inz('');              
        PREVIOUSCREDITAMOUNT packed(10:2) inz(0);      
        PARTCREDITTOTAL packed(10:2) inz(0);           
        PARTMARKUPTOTAL packed(10:2) inz(0);           
        LABORCREDITTOTAL packed(10:2) inz(0);          
        NETITEMCREDITTOTAL packed(10:2) inz(0);        
        NETTOTALCREDITDOLLARS packed(10: 2) inz(0);    
        REQUESTEDTOTALDOLLARS packed(10: 2) inz(0);    
        DIFFERENCETOTALDOLLARS packed(10: 2) inz(0);   
        DOCUMENTNUMBER varchar(20) inz('');            
        num_CLAIMLINEDETAILRECORD int(10) inz(0);      
        dcl-ds CLAIMLINEDETAILRECORD dim(50);          
          TRACKINGNUMBER varchar(10) inz('');          
          CLAIMNUMBER varchar(20) inz('');             
          APPROVEDQUANTITY packed(10:2) inz(0);        
          REPLACEDPARTNUMBER varchar(1) inz('');       
          PARTNAME varchar(1) inz('');                 
          LABOROPERATIONCODE varchar(8) inz('');       
          PARTLANDEDMARKUP packed(10:2) inz(0);        
          NETITEMCODE varchar(10) inz('');             
          PRORATE packed(10:2) inz(0);                 
          TYPE varchar(10) inz('');                    
          GROSSCREDIT packed(10:2) inz(0);   
          TOTALCREDIT packed(10:2) inz(0);   
          PROCESSCODE varchar(10) inz('');   
          PROCESSMESSAGE varchar(80) inz('');
        end-ds;                              
      end-ds;                                
    end-ds;                                  
  end-ds;                                    
end-ds;                                      